program test1(input,output);
    (* 普通测试 全是整数 *)
var
    song : record
        osScore : integer;
        compileScore : integer;
        databaseScore : integer
    end;
    (*var 
        a : integer;*)
begin
    song.osScore := 100 ;
    song.compileScore := 100 ;
    song.databaseScore := 100 ; 

    (*writeln(song.osScore);
    writeln(song.compileScore);
    writeln(song.databaseScore); *)
    
end.